(mail-setup): For mail-self-blind, use user-mail-address.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 19addce426f8c2fb45629c72985e5150d3277ac1..59d6a46ff40aadaf9cf4e2bd3422eb615716b949 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -274,7 +274,7 @@ actually occur.")
     (if mail-default-reply-to
        (insert "Reply-to: " mail-default-reply-to "\n"))
     (if mail-self-blind
-       (insert "BCC: " (user-login-name) "\n"))
+       (insert "BCC: " user-mail-address "\n"))
     (if mail-archive-file-name
        (insert "FCC: " mail-archive-file-name "\n"))
     (put-text-property (point)